home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / wake_him.zip / WAKE_HIM.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-05-15  |  4KB  |  146 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.     String   STRING002
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     Newline
  27.     STRING002 = ""
  28.     PrintLn "@X04▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  29.     PrintLn "@X0A@X0CSYSOP @X74EMERGENCY@X0C CALLER      @X08You don't have the faintest idea how this sounds!!"
  30.     PrintLn "@X04▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X04▄▄▄▄▄▄"
  31.     PrintLn "      Idea and PPE development by JOSE FERRO - PERU - SOUTH AMERICA"
  32.     PrintLn "      THIS SOFTWARE IS FREEWARE - AT LEAST I EXPECT A POST CARD FROM"
  33.     PrintLn "      THOSE WHO USE THIS PROGRAM ...SO BE NICE AND SEND SOMETHING .. :)"
  34.     PrintLn "      Email : jferro@mcp.org.pe "
  35.     PrintLn "      SnailMail :  Jose Ferro , La República 874 , Lima 27, Peru "
  36.     PrintLn "      Registered in Saltair BBS as Alfonso Verdera .. ;) "
  37.     Newline
  38.     PrintLn "@X07This CALL to Sysop could make Sysop or even neighbours get mad at user."
  39.     PrintLn "@X07Please use it if is only an extreme emergency ... ;)"
  40.     InputStr "@X07@X0CAre you shure you want to CALL the Sysop?", STRING001, 12, 1, "SsYyNn", 0
  41.     If ((STRING001 == "n") || (STRING001 == "N")) Then
  42.         Newline
  43.         PrintLn "@X0CGood Choice!.More healthy for the Sysop is a Normal Chat..."
  44.         End
  45.     Endif
  46.     Newline
  47.     Delay 20
  48.     Newline
  49.     PrintLn "@X07PC-Power Supply verifies ok .... "
  50.     Delay 20
  51.     PrintLn "@X07Ok... let's make some noise ....@X07"
  52.     Delay 30
  53.     Newline
  54.     PrintLn "@X04... pink noise + gently door chimes 440Hz ,pulsing...."
  55.     For INTEGER001 = 1 To 6
  56.         For INTEGER002 = 440 To 1440 Step 40
  57.             STRING002 = KInkey()
  58.             If (STRING002 <> "") Goto LABEL001
  59.             Sound INTEGER002
  60.             Delay 1
  61.         Next
  62.         Sound 0
  63.         Delay 5
  64.     Next
  65.     PrintLn "    ... trying shock wave , dual toning , 80 dB sustained ..."
  66.     For INTEGER001 = 1 To 7
  67.         STRING002 = KInkey()
  68.         If (STRING002 <> "") Goto LABEL001
  69.         Sound 400
  70.         Delay 5
  71.         Sound 0
  72.         Delay 3
  73.     Next
  74.     PrintLn "       ...givin a try to MindBender FX ,wide dynamic range,anti-REM sleeping"
  75.     For INTEGER001 = 1 To 8
  76.         STRING002 = KInkey()
  77.         If (STRING002 <> "") Goto LABEL001
  78.         Sound 220
  79.         Delay 5
  80.         Sound 0
  81.         Delay 3
  82.     Next
  83.     PrintLn "          ... scanners subliminal crusher... WARNING!! Not reversible...."
  84.     For INTEGER001 = 1 To 12
  85.         STRING002 = KInkey()
  86.         If (STRING002 <> "") Break
  87.         Sound 440
  88.         Delay 3
  89.         Sound 0
  90.         Delay 1
  91.     Next
  92.     :LABEL001
  93.     Newline
  94.     If (STRING002 <> "") Then
  95.         PrintLn "Sysop is @X0CAWAKEN @X04!! @X07Wish you luck buddy-boy..... :)"
  96.     Else
  97.         PrintLn "@X0CNo Sysop?? Please call 911.We have a situation here ..."
  98.     Endif
  99.  
  100. ;------------------------------------------------------------------------------
  101. ;
  102. ; Usage report (before postprocessing)
  103. ;
  104. ; ■ Statements used :
  105. ;
  106. ;    1       End
  107. ;    17      Goto 
  108. ;    15      Let 
  109. ;    20      PrintLn 
  110. ;    11      If 
  111. ;    1       InputStr 
  112. ;    11      Delay 
  113. ;    7       Newline
  114. ;    8       Sound 
  115. ;
  116. ;
  117. ; ■ Functions used :
  118. ;
  119. ;    5       +
  120. ;    2       ==
  121. ;    5       <>
  122. ;    5       <
  123. ;    5       <=
  124. ;    10      >=
  125. ;    7       !
  126. ;    10      &&
  127. ;    6       ||
  128. ;    4       KInkey()
  129. ;
  130. ;------------------------------------------------------------------------------
  131. ;
  132. ; Analysis flags : No flag
  133. ;
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Postprocessing report
  137. ;
  138. ;    5       For/Next
  139. ;    0       While/EndWhile
  140. ;    2       If/Then or If/Then/Else
  141. ;    0       Select Case
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;                 AEGiS Corp - Break the routines, code against the machines!
  145. ;------------------------------------------------------------------------------
  146.